
 
 O p t i o n   S p e e d   9 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S l o t s 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r X   =     1 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r Y   =     2 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r Z   =     3 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   X   l i m i t s 
 
 V a r i a b l e   N u m e r i c   X m i n   =   0 
 
 V a r i a b l e   N u m e r i c   X m a x   =   9 9 9 
 
 V a r i a b l e   N u m e r i c   Y m i n   =   0 
 
 V a r i a b l e   N u m e r i c   Y m a x   =   9 9 9 
 
 V a r i a b l e   N u m e r i c   Z m i n   =   0 
 
 V a r i a b l e   N u m e r i c   Z m a x   =   9 9 9 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   K e y   J o g   S p e e d 
 
 V a r i a b l e   N u m e r i c   K e y J o g _ S p e e d     =   1 0 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   K E Y S 
 
 K e y   U p               G o s u b   E x e c K e y s 
 
 K e y   D o w n           G o s u b   E x e c K e y s 
 
 K e y   L e f t           G o s u b   E x e c K e y s 
 
 K e y   R i g h t         G o s u b   E x e c K e y s 
 
 K e y   P a g e u p       G o s u b   E x e c K e y s 
 
 K e y   P a g e d o w n   G o s u b   E x e c K e y s 
 
 
 
 C o n t r o l s   O p e n T e x t B o x 
 
 C o n t r o l s   C l e a r T e x t B o x 
 
 P r i n t   C R L F   +   "   P R E S S   K E Y B O A R D   A R R O W S "   +   C R L F 
 
 S t o p 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   w i t h   k e y b o a r d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   E x e c K e y s 
 
 	 V a r i a b l e   N u m e r i c   J o g S p e e d 
 
 	 J o g S p e e d   =   K e y J o g _ S p e e d   /   1 0 0 
 
 	 S e l e c t   T r u e 
 
 	 	 C a s e   K e y ( " S H I F T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 1 
 
 	 	 C a s e   K e y ( " C T R L " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 1 
 
 	 	 C a s e   K e y ( " A L T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 0 1 
 
 	 	 	 
 
 	 	 ' C a s e E l s e 
 
 	 	 	 '   W I T H O U T   T H I S   C a s e E l s e 
 
 	 	 	 '   T H E   E X E C U T I O N   G O E S   T O   T H E   N E X T   C a s e E l s e 
 
 	 	 	 
 
 	 E n d S e l e c t 
 
 	 ' 
 
 	 I f   K e y ( " U p " ) 
 
 	 	 S l o t ( S l o t _ M o t o r Y )   =   L i m i t ( S l o t ( S l o t _ M o t o r Y )   +   J o g S p e e d ,   Y m i n ,   Y m a x ) 
 
 	 E n d I f 
 
 	 I f   K e y ( " D o w n " ) 
 
 	 	 S l o t ( S l o t _ M o t o r Y )   =   L i m i t ( S l o t ( S l o t _ M o t o r Y )   -   J o g S p e e d ,   Y m i n ,   Y m a x ) 
 
 	 E n d I f 
 
 	 ' 
 
 	 I f   K e y ( " L e f t " ) 
 
 	 	 S l o t ( S l o t _ M o t o r X )   =   L i m i t ( S l o t ( S l o t _ M o t o r X )   -   J o g S p e e d ,   X m i n ,   X m a x ) 
 
 	 E n d I f 
 
 	 I f   K e y ( " R i g h t " ) 
 
 	 	 S l o t ( S l o t _ M o t o r X )   =   L i m i t ( S l o t ( S l o t _ M o t o r X )   +   J o g S p e e d ,   X m i n ,   X m a x ) 
 
 	 E n d I f 
 
 	 ' 
 
 	 I f   K e y ( " P a g e U p " ) 
 
 	 	 S l o t ( S l o t _ M o t o r Z )   =   L i m i t ( S l o t ( S l o t _ M o t o r Z )   +   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 E n d I f 
 
 	 I f   K e y ( " P a g e D o w n " ) 
 
 	 	 S l o t ( S l o t _ M o t o r Z )   =   L i m i t ( S l o t ( S l o t _ M o t o r Z )   -   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 E n d I f 
 
 	 ' 
 
 	 I f   L i m i t R e a c h e d 
 
 	 	 L o a d   " S o u n d \ B u t t o n C l i c k 3 . w a v " 
 
 	 E n d I f 
 
 	 ' 
 
 	 G o s u b   P r i n t V a l u e s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     P R I N T   C O O R D I N A T E S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   P r i n t V a l u e s 
 
 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 s 1   =   "   "   +   P a d R i g h t ( " X = "   +   F o r m a t ( S l o t ( S l o t _ M o t o r X ) ,   " 0 . 0 0 0 " ) ,   1 1 ) 
 
 	 s 1   =   s 1     +   P a d R i g h t ( " Y = "   +   F o r m a t ( S l o t ( S l o t _ M o t o r Y ) ,   " 0 . 0 0 0 " ) ,   1 1 ) 
 
 	 s 1   =   s 1     +   P a d R i g h t ( " Z = "   +   F o r m a t ( S l o t ( S l o t _ M o t o r Z ) ,   " 0 . 0 0 0 " ) ,   1 1 ) 
 
 	 P r i n t   C R L F   +   s 1 
 
 R e t u r n 
 
 
 
 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 S e l e c t   " " 
 
 	 	 C a s e   " E n d S e q " 
 
 	 	 	 B e e p 
 
 	 	 C a s e   " S t o p " 
 
 	 	 	 B e e p 
 
 	 	 C a s e E l s e 
 
 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   C R L F 
 
 	 	 	 B e e p 	 	 	 	 	 	 	 ' 
 
 	 E n d S e l e c t 
 
 R e t u r n 
 
 
 
 
 
 ' E X E C   S i n 2   =   S i n ( 3 3 ) 
 
 